function ejer7(n)
    
    tic
    m = 10000;
    e = 1.0e-11;

	b1 = [ones(n,1);zeros(n,1)];
	
	b2 = ones(2*n,1);

	I = eye(n);
	
	B = diag(4*ones(n,1))-diag(ones(n-1,1),1)-diag(ones(n-1,1),-1);
	
	A=[B,-I;-I,B];
	
	w = linspace(0,0,n*2);
	x =  w';
	
	   
	fprintf('solucion con sollu para b1 \n:')
	x1 = sollu(A,b1)
		
	fprintf('solucion con soleg para b1:\n')
	x2 = soleg(A,b1)'
			
	fprintf('solucion de jacobi para b1:\n')
    [x3,k3] = jacobi(A,b1,e,m,x);
    x3'
	
    fprintf('solucion de gauss seidel para b1: \n')
    [x4,k4] = gseidel(A,b1,e,m,x);
    x4'
	
	fprintf('solucion con sollu para b2: \n')
	x5 = sollu(A,b2)
	
	fprintf('solucion con soleg para b2: \n')
	x6 = soleg(A,b2)'
		
	fprintf('solucion de jacobi para b2: \n')
    [x7,k7] = jacobi(A,b2,e,m,x);
    x7'
    
    fprintf('solucion de gauss seidel para b2: \n')
    [x8,k8] = gseidel(A,b2,e,m,x);
    x8'
    toc
    
 endfunction   